home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Herois
/
Codigo.Cst
/
00026_Script_Texto Inteligente
< prev
next >
Wrap
Text File
|
1999-03-19
|
2KB
|
77 lines
property spr
property midia, subtit -- parametros setados por outro procedimento
property primPal, spriteClick
on getBehaviorDescription
return "Faz busca automatica de palavra clicada"
end
on getPropertyDescriptionList
set p_list = [ ¼
#midia: [ #comment: "Midia do texto",¼
#format: #integer, ¼
#default: 1 ],¼
#subtit: [ #comment: "Subtitulo do texto", ¼
#format: #integer, ¼
#default: 0 ],¼
#primPal: [ #comment: "Numero da primeira palavra do texto", ¼
#format: #integer, ¼
#default: 0 ],¼
#spriteClick: [ #comment: "Sprite abaixo interessado em clicks inuteis", ¼
#format: #integer, ¼
#default: 0 ]¼
]
return p_list
end
on beginSprite me
set spr = the spriteNum of me
end
on cleanSprite me
set the visibility of sprite (the spriteNum of me) to true
end
on setMidia me, m, s
set midia = m
set subtit = s
end
on mouseUp me
set mem = the member of sprite spr
set pal = the mouseWord
if the doubleClick then
cursor 4
puppetSound 2,"CliqueProcura"
sendSprite(97,#chaveVisibilidade,true)
set tmp = word pal of (the text of mem)
set pal = ""
set i = 1
set l = length(tmp)
repeat while (i <= l) and ¼
not (("!,.+'" & numToChar(34)) contains char i of tmp)
set pal = pal & char i of tmp
set i = i + 1
end repeat
sendSprite(97,#setEstado, 0)
sendSprite(98,#preenche, pal)
-- put "# Texto Inteligente: " & pal
cursor -1
else
global gLinks, gLinksCount, gLinksTable, gLinksDest
-- put "# midia=" & midia & ", subtitulo=" & subtit & ", word=" & pal
set tmp = midia & "," & subtit & "," & (pal + primPal)
set pos = getPos(gLinksTable, tmp)
if pos > 0 then
cursor 4
puppetSound 2,"CliqueDuplo"
vaiPagina getAt(gLinksDest,pos), true
cursor -1
else if spriteClick <> 0 then
sendSprite spriteClick, #mouseUp
end if
end if
end